IF (cr_glist:=CreateContext({cr_glist}))=NIL THEN Raise(ER_CONTEXT)
IF (cr_menu:=CreateMenusA([1,0,'Project',0,0,0,0,
2,0,'Load','L',0,0,0,
2,0,'Save','S',0,0,0,
2,0,'Quit','Q',0,0,0,
1,0,' Options ',0,0,0,0,
2,0,'Stack ','A',0,0,0,
2,0,'Priority','P',0,0,0,
0,0,0,0,0,0,0]:newmenu,NIL))=NIL THEN Raise(ER_MENUS)
IF LayoutMenusA(cr_menu,visual,NIL)=FALSE THEN Raise(ER_MENUS)
IF (glist:=CreateGadgetA(LISTVIEW_KIND,cr_glist,[4,12,153,41,'',tattr,0,0,visual,0]:newgadget,[GTLV_SHOWSELECTED,NIL,GTLV_LABELS,-1,GT_UNDERSCORE,"_",TAG_DONE,0]))=NIL THEN Raise(ER_GADGET)
IF (gadd:=CreateGadgetA(BUTTON_KIND,glist,[159,12,62,12,'_Add',tattr,1,16,visual,0]:newgadget,[GA_RELVERIFY,TRUE,GA_DISABLED,FALSE,GT_UNDERSCORE,"_",TAG_DONE,0]))=NIL THEN Raise(ER_GADGET)
IF (grem:=CreateGadgetA(BUTTON_KIND,gadd,[223,12,62,12,'_Rem',tattr,2,16,visual,0]:newgadget,[GA_RELVERIFY,TRUE,GA_DISABLED,FALSE,GT_UNDERSCORE,"_",TAG_DONE,0]))=NIL THEN Raise(ER_GADGET)
IF (gquit:=CreateGadgetA(BUTTON_KIND,grem,[159,36,126,12,'_Quit',tattr,3,16,visual,0]:newgadget,[GA_RELVERIFY,TRUE,GA_DISABLED,FALSE,GT_UNDERSCORE,"_",TAG_DONE,0]))=NIL THEN Raise(ER_GADGET)
IF (gwb:=CreateGadgetA(BUTTON_KIND,gquit,[161,24,62,12,'_WBRun',tattr,4,16,visual,0]:newgadget,[GA_RELVERIFY,TRUE,GA_DISABLED,FALSE,GT_UNDERSCORE,"_",TAG_DONE,0]))=NIL THEN Raise(ER_GADGET)
IF (gcli:=CreateGadgetA(BUTTON_KIND,gwb,[223,24,62,12,'_CliRun',tattr,5,16,visual,0]:newgadget,[GA_RELVERIFY,TRUE,GA_DISABLED,FALSE,GT_UNDERSCORE,"_",TAG_DONE,0]))=NIL THEN Raise(ER_GADGET)
IF (ginfo:=CreateGadgetA(TEXT_KIND,gcli,[7,48,278,12,'',tattr,6,0,visual,0]:newgadget,[GTTX_BORDER,TRUE,GTTX_TEXT,'',GTTX_COPYTEXT,FALSE,GT_UNDERSCORE,"_",TAG_DONE,0]))=NIL THEN Raise(ER_GADGET)